home *** CD-ROM | disk | FTP | other *** search
/ Warriors 2001 to 2002 / Warriors 2001 - 2002 by Southwest.iso / project.dir / 00147_Script_scroll 5 < prev    next >
Text File  |  2002-03-06  |  287b  |  14 lines
  1. on mousedown me
  2.   i = member(sprite(me.spritenum).member).name
  3.   repeat while the mousedown
  4.     case i of:
  5.       "up_rol":
  6.         scrollbyline (member(110),-2)
  7.       "down_rol":
  8.         scrollbyline (member(110), 2)
  9.     end case
  10.     updatestage
  11.     
  12.   end repeat
  13.   
  14. end